home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 19.zip / BS1 part 19 / how to learn assembler.adf / CH4 / 4_3_1bin-hex.asm < prev    next >
Assembly Source File  |  1988-02-25  |  1KB  |  33 lines
  1. ;(4.3.1) bin-hex
  2. ;    ....                    ;your program
  3.      lea      buffer,a0      ; Pointer to buffer
  4.      move     #$4A,d1        ; Byte to be converted
  5.      bsr      byte           ; and convert
  6.      rts
  7. ;   ...                      ;the rest of your program
  8. byte:
  9.      move     d1,d2          ; Move value into D2
  10.      lsr      #4,d2          ; Move upper nibble into lower nibble
  11.      bsr      nibble         ; Convert D2
  12.      move.b   d2,(a0)+       ; Put character in buffer
  13.      move     d1,d2          ; Value in D2
  14.      bsr      nibble         ; Convert lower nibble
  15.      move.b   d2,(a0)+       ; and put it in buffer
  16.      rts                     ; Done converting
  17.  
  18. nibble:
  19.      and      #$0F,d2        ; Just keep low byte
  20.      add      #$30,d2        ; Add $30
  21.      cmp      #$3A,d2        ; Was it a digit?
  22.      bcs      ok             ; Yes, done
  23.      add      #7,d2          ; Else add 7
  24.  
  25. ok:
  26.      rts                     ; Bye-bye
  27.  
  28. buffer:
  29.      DS.B 9                  ; Enough space for 8 hex digits and a null byte
  30.  
  31.      end
  32.  
  33.